ocr: absolute and array asm begin break case const constructor continue destructor dispose div do dounto else end erit false file for function goto if implementation in inherited inline interface label mod neu nil not object of on operator or packed procedure progran record repeat self set shl shr string then to true try type unit until uses var chile with YOT
